10 GOTO100
50 REM <YES>
51 S=54272:FORE=STOS+28:POKEE,0:NEXT
52 POKE54296,15:POKE54277,42:POKE54278,250
53 POKE54276,23:POKE54273,23:POKE54272,191
54 FORT=1TO150:NEXT:POKE54276,32:FORT=1TO200:NEXT
55 POKE54296,0:RETURN
60 REM <NO>
61 S=54272:FORE=STOS+28:POKEE,0:NEXT
62 POKE54296,15:POKE54277,18:POKE54278,242
63 POKE54276,33:POKE54273,4:POKE54272,48
64 FORT=1TO250:NEXT:POKE54276,32:FORT=1TO300:NEXT
65 POKE54296,0:RETURN
70 REM <BLIP>
71 S=54272:FORE=STOS+28:POKEE,0:NEXT
72 POKE54296,5:POKE54277,42:POKE54278,250
73 POKE54276,23:POKE54273,23:POKE54272,191
74 FORT=1TO30:NEXT:POKE54276,32:FORT=1TO50:NEXT
75 POKE54296,0:RETURN
80 FORT=1TO500:NEXT:RETURN
81 FORT=1TO1000:NEXT:RETURN
82 FORT=1TO2000:NEXT:RETURN
83 FORT=1TO3000:NEXT:RETURN
84 FORT=1TO4000:NEXT:RETURN
85 FORT=1TO5000:NEXT:RETURN
90 GOSUB81:GOSUB70
91 PRINT"[154]      [208]RESS [211][208][193][195][197][160][194][193][210][160]TO CONTINUE
92 [161]R$:[139]R$[179][177][199](32)[167]92
93 [142]
95 [153]"  PEEKETTER LUCK WITH THE NEXT QUESTION.OPEN":[142]
100 [151]53280,0:[151]53281,0:[151]646,3:[151]53272,23:C[178]0:P[178]0:W[178]0:D[178]0:G[178]0
101 [153]"LOAD      ATNCLOSE(null)(null)(null)CHR$CLOSEVALSTR$(null)LENATN(null)RIGHT$(null)(null)ATN(null)CLOSE(null)(null)(null)CHR$(null)ATN(null)
102 PRINT"           [198][207][210][160][195]64 [195][207][205][208][213][212][197][210][211]
105 [153]"                                        WAIT";
110 [153]"                                        WAIT";
115 [153]"     (null)RACTICE (null)ROBLEMS IN ATNRITHMETIC    WAIT";
120 [153]"                                        WAIT";
125 [153]"           CHR$RADE 3     (null)ART 2           WAIT";
130 [153]"                                        WAIT";
135 [153]"               (null)ESSON 18                WAIT";
140 [153]"                                        WAIT";
145 [153]"              (null)EVIEW (null)EST     OPEN          WAIT";
150 [153]"                                        WAIT";
155 [153]"                                        WAIT"
160 [153]"                  WHC "
165 [141]90
170 [153]"LOAD       ATNND AWAY WE GO......."
175 [141]81:[141]50:[141]80
200 [153]"PRINT#LOAD               (null)UESTION 1 WAITOPEN":Z[178]0
205 [153]"  LEFT$OWARD WANTS TO BUY A 90 CENT BALL.
210 PRINT"  [200]E HAS 63 CENTS.
215 [153]"  LEFT$OW MUCH MORE DOES HE NEED?"
220 [141]81:[141]70
225 [153]"             ON"
230 [133] A$
240 [139]A$[179][177]"27"[175]A$[179][177]"27 CENTS"[167]270
250 [153]"SYS                LEN(null)(null)(null)VALLEN(null)!!               WAITOPEN":[141]50:[141]82
260 P[178]P[170]1:[137]300
270 [153]"DEF  (null)(null)LENLEFT$! .......... (null)HAT LEFT$(null)(null)(null)!":[141]60:[141]82:Z[178]Z[170]1
275 [139]Z[178]2[167]G[178]G[170]1:[137]285
280 [153]"SYSON  (null)RY AGAIN                             ":[141]70:[141]81:W[178]W[170]1
282 [153]"OPENONON                                        ONONONONONONON"
283 [137]225
285 [153]"SYSONON  (null)HE ANSWER IS 27SYS CENTS.       ":[141]82
290 [153]"  90 - 63 = 27                      "
295 [141]82:[141]90
300 [153]"PRINT#LOAD               (null)UESTION 2 WAITOPEN":Z[178]0
305 [153]"  PEEKOB MAKES THREE CENTS FOR EVERY
310 PRINT"  MAGAZINE HE SELLS.
315 [153]"  LEFT$OW MUCH DOES HE GAIN ON 42             MAGAZINES?"
317 [153]"  (STR$ON'T FORGET THE $ SIGN!)"
320 [141]81:[141]70
325 [153]"             ON"
330 [133] A$
340 [139]A$[179][177]"$1.26"[167]370
350 [153]"SYS                LEN(null)(null)(null)VALLEN(null)!!               WAITOPEN":[141]50:[141]82
360 P[178]P[170]1:[137]400
370 [153]"DEF  (null)(null)LENLEFT$! .......... (null)HAT LEFT$(null)(null)(null)!":[141]60:[141]82:Z[178]Z[170]1
375 [139]Z[178]2[167]G[178]G[170]1:[137]385
380 [153]"SYSON  (null)RY AGAIN                             ":[141]70:[141]81:W[178]W[170]1
382 [153]"OPENONON                                        ONONONONONONON"
383 [137]325
385 [153]"SYSONON  (null)HE ANSWER IS $1.26SYS            ":[141]82
390 [153]"  42 X .03 = 1.26                     "
395 [141]82:[141]90
400 [153]"PRINT#LOAD               (null)UESTION 3 WAITOPEN":Z[178]0
405 [153]"  LEFT$OW MANY HALF KILO PACKAGES OF
410 PRINT"  COFFEE CAN THE GROCER MAKE FROM         120 KILOS OF COFFEE?"
420 GOSUB81:GOSUB70
425 PRINT"             [145]"
430 INPUT A$
440 IFA$<>"240"THEN470
450 PRINT"[158]                [195][207][210][210][197][195][212]!!               [146][159]":GOSUB50:GOSUB82
460 P=P+1:GOTO500
470 PRINT"[150]  [207][213][195][200]! .......... [212]HAT [200][213][210][212]!":GOSUB60:GOSUB82:Z=Z+1
475 IFZ=2THENG=G+1:GOTO485
480 PRINT"[158][145]  [212]RY AGAIN                             ":GOSUB70:GOSUB81:W=W+1
482 PRINT"[159][145][145]                                        [145][145][145][145][145][145][145]"
483 GOTO425
485 PRINT"[158][145][145]  [212]HE ANSWER IS 240[158] PACKAGES    ":GOSUB82
490 PRINT"  120 X 2 = 240                     "
495 GOSUB82:GOSUB90
500 PRINT"[152][147]               [209]UESTION 4 [146][159]":Z=0
505 PRINT"  [215]HAT WILL BE THE PRICE OF A DOZEN
510 [153]"  MELONS IF THEY SELL FOR 15 CENTS        EACH?"
520 [141]81:[141]70
525 [153]"             ON"
530 [133] A$
540 [139]A$[179][177]"$1.80"[167] 570
550 [153]"SYS                LEN(null)(null)(null)VALLEN(null)!!               WAITOPEN":[141]50:[141]82
560 P[178]P[170]1:[137]600
570 [153]"DEF  (null)(null)LENLEFT$! .......... (null)HAT LEFT$(null)(null)(null)!":[141]60:[141]82:Z[178]Z[170]1
575 [139]Z[178]2[167]G[178]G[170]1:[137]585
580 [153]"SYSON  (null)RY AGAIN                             ":[141]70:[141]81:W[178]W[170]1
582 [153]"OPENONON                                        ONONONONONONON"
583 [137]525
585 [153]"SYSONON  (null)HE ANSWER IS $1.80SYS           ":[141]82
590 [153]"  12 X .15 = 1.80                    "
595 [141]82:[141]90
600 [153]"PRINT#LOAD               (null)UESTION 5 WAITOPEN":Z[178]0
605 [153]"  (null)HREE BOYS EARNED $9.60 SHOVELLING      SNOW.
610 PRINT"  [201]F THEY SHARE ALIKE, HOW MUCH
615 [153]"  SHOULD EACH GET?"
620 [141]81:[141]70
625 [153]"             ON"
630 [133] A$
640 [139]A$[179][177]"$3.20"[167] 670
650 [153]"SYS                LEN(null)(null)(null)VALLEN(null)!!               WAITOPEN":[141]50:[141]82
660 P[178]P[170]1:[137]700
670 [153]"DEF  (null)(null)LENLEFT$! .......... (null)HAT LEFT$(null)(null)(null)!":[141]60:[141]82:Z[178]Z[170]1
675 [139]Z[178]2[167]G[178]G[170]1:[137]685
680 [153]"SYSON  (null)RY AGAIN                             ":[141]70:[141]81:W[178]W[170]1
682 [153]"OPENONON                                        ONONONONONONON"
683 [137]625
685 [153]"SYSONON  (null)HE ANSWER IS $3.20SYS           ":[141]82
690 [153]"  9.60 / 3 = 3.20                   "
695 [141]82:[141]90
700 [153]"PRINT#LOAD               (null)UESTION 6 WAITOPEN":Z[178]0
705 [153]"  ASCIND THE COST OF 5 TONS OF COAL
710 PRINT"  AT $14 A TON."
725 PRINT"             [145]"
730 INPUT A$
740 IFA$<>"$70.00"AND A$<>"$70"THEN770
750 PRINT"[158]                [195][207][210][210][197][195][212]!!               [146][159]":GOSUB50:GOSUB82
760 P=P+1:GOTO800
770 PRINT"[150]  [207][213][195][200]! .......... [212]HAT [200][213][210][212]!":GOSUB60:GOSUB82:Z=Z+1
775 IFZ=2THENG=G+1:GOTO785
780 PRINT"[158][145]  [212]RY AGAIN                             ":GOSUB70:GOSUB81:W=W+1
782 PRINT"[159][145][145]                                        [145][145][145][145][145][145][145]"
783 GOTO725
785 PRINT"[158][145][145]  [212]HE ANSWER IS $70.00[158]          ":GOSUB82
790 PRINT"  14 X 5 = 70                      "
795 GOSUB82:GOSUB90
800 PRINT"[152][147]               [209]UESTION 7 [146][159]":Z=0
805 PRINT"  [193] GROCER HAD 32 DOZEN EGGS.
810 [153]"  RIGHT$F HE SOLD 14 DOZEN, HOW MANY WERE      LEFT?"
820 [141]81:[141]70
825 [153]"             ON"
830 [133] A$
840 [139]A$[179][177]"18"[175]A$[179][177]"18 DOZEN"[175]A$[179][177]"216"[167]870
850 [153]"SYS                LEN(null)(null)(null)VALLEN(null)!!               WAITOPEN":[141]50:[141]82
860 P[178]P[170]1:[137]900
870 [153]"DEF  (null)(null)LENLEFT$! .......... (null)HAT LEFT$(null)(null)(null)!":[141]60:[141]82:Z[178]Z[170]1
875 [139]Z[178]2[167]G[178]G[170]1:[137]885
880 [153]"SYSON  (null)RY AGAIN                             ":[141]70:[141]81:W[178]W[170]1
882 [153]"OPENONON                                        ONONONONONONON"
883 [137]825
885 [153]"SYSONON  (null)HE ANSWER IS 18SYS DOZEN.       ":[141]82
890 [153]"  32 - 14 = 18                      "
895 [141]82:[141]90
900 [153]"PRINT#LOAD               (null)UESTION 8 WAITOPEN":Z[178]0
905 [153]"  (null)UTH HAS A '(null)OONIE', 2 QUARTERS,
910 PRINT"  1 DIME, AND 7 PENNIES.
915 [153]"  LEFT$OW MUCH MONEY DOES SHE HAVE?
920 GOSUB81:GOSUB70
925 PRINT"             [145]"
930 INPUT A$
940 IFA$<>"$1.67"THEN970
950 PRINT"[158]                [195][207][210][210][197][195][212]!!               [146][159]":GOSUB50:GOSUB82
960 P=P+1:GOTO1000
970 PRINT"[150]  [207][213][195][200]! .......... [212]HAT [200][213][210][212]!":GOSUB60:GOSUB82:Z=Z+1
975 IFZ=2THENG=G+1:GOTO985
980 PRINT"[158][145]  [212]RY AGAIN                             ":GOSUB70:GOSUB81:W=W+1
982 PRINT"[159][145][145]                                        [145][145][145][145][145][145][145]"
983 GOTO925
985 PRINT"[158][145][145]  [212]HE ANSWER IS $1.67[158]           ":GOSUB82
990 PRINT"  1.00 + 50 + 10 + 7 = 1.67         "
995 GOSUB82:GOSUB90
1000 PRINT"[152][147]               [209]UESTION 9 [146][159]":Z=0
1005 PRINT"  [196]ICK GATHERED EGGS AT HIS UNCLE'S       FARM.
1010 [153]"  LEFT$E FOUND THREE EGGS IN EACH OF          NINE NESTS.
1015 PRINT"  [200]OW MANY EGGS DID HE FIND IN ALL?"
1020 GOSUB81:GOSUB70
1025 PRINT"             [145]"
1030 INPUT A$
1040 IFA$<>"27"THEN1070
1050 PRINT"[158]                [195][207][210][210][197][195][212]!!               [146][159]":GOSUB50:GOSUB82
1060 P=P+1:GOTO1100
1070 PRINT"[150]  [207][213][195][200]! .......... [212]HAT [200][213][210][212]!":GOSUB60:GOSUB82:Z=Z+1
1075 IFZ=2THENG=G+1:GOTO1085
1080 PRINT"[158][145]  [212]RY AGAIN                             ":GOSUB70:GOSUB81:W=W+1
1082 PRINT"[159][145][145]                                        [145][145][145][145][145][145][145]"
1083 GOTO1025
1085 PRINT"[158][145][145]  [212]HE ANSWER IS 27[158] EGGS.        ":GOSUB82
1090 PRINT"  3 X 9 = 27                        "
1095 GOSUB82:GOSUB90
1100 PRINT"[152][147]               [209]UESTION 10 [146][159]":Z=0
1105 PRINT"  [206]ELL IS NINE YEARS OLD AND HER
1110 [153]"  COUSIN IN SIXTEEN.
1115 PRINT"  [200]OW MUCH OLDER IS HER COUSIN?"
1120 GOSUB81:GOSUB70
1125 PRINT"             [145]"
1130 INPUT A$
1140 IFA$<>"7"ANDA$<>"7 YEARS"THEN1170
1150 PRINT"[158]                [195][207][210][210][197][195][212]!!               [146][159]":GOSUB50:GOSUB82
1160 GOTO1200
1170 PRINT"[150]  [207][213][195][200]! .......... [212]HAT [200][213][210][212]!":GOSUB60:GOSUB82:Z=Z+1
1175 IFZ=2THENG=G+1:GOTO1185
1180 PRINT"[158][145]  [212]RY AGAIN                             ":GOSUB70:GOSUB81:W=W+1
1182 PRINT"[159][145][145]                                        [145][145][145][145][145][145][145]"
1183 GOTO1125
1185 PRINT"[158][145][145]  [212]HE ANSWER IS 7[158] YEARS.        ":GOSUB82
1190 PRINT"  16 - 9 = 7                        "
1195 GOSUB82:GOSUB90
1200 PRINT"[147]           [210]EPORT [195]ARD [146]"
1205 D=W-G:C=10-W
1210 PRINT"[153]  1. [209]UESTIONS ANSWERED CORRECTLY            ON FIRST TRY:
1215 [153]"                 ";C
1220 [153]"FOR  2. (null)UESTIONS ANSWERED CORRECTLY            ON SECOND TRY:
1225 PRINT"                 ";D
1230 PRINT"[150]  3. [209]UESTIONS MISSED ON SECOND TRY:
1235 [153]"                 ";G;""
1245 [141]90
1250 [153]"SYSLOAD  (null)OU HAVE A CHOICE:
1255 PRINT"  [208]RESS  [210] [146] TO REPEAT THIS LESSON
1260 [153]"  (null)RESS  (null) WAIT TO RETURN TO THE MENUOPEN"
1265 [161]R$:[139]R$[179][177]"R"[175]R$[179][177]"M"[167]1265
1270 [139]R$[178]"R"[167][140]:[137]100
1275 [140]
1280 [153]"LOAD (null)ETURNING TO THE DISK MENU
1285 LOAD"MENU",8
1290 RUN
1295 END
1300 REM BILL CUMBERLAND 91:01:05